home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XTIMER.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-06  |  452b  |  27 lines
  1. var
  2.    SaveTime : integer;
  3.  
  4. {$IBoDecl}
  5.  
  6. {$Itimer}
  7. {$IPutStr}
  8.  
  9. BEGIN
  10.  
  11.    ClrScr;
  12.    PutStr (h,'Set timer for 5 seconds. . .',30,6,14);
  13.    i := 5;
  14.    SaveTime := TimeElapsed;
  15.    repeat
  16.       if TimeElapsed <> SaveTime then
  17.       begin
  18.          str (i,s);
  19.          PutStr (h,s, 40,12-i,14);
  20.          i := i - 1;
  21.          SaveTime := TimeElapsed;
  22.       end;
  23.    until timer(5);
  24.    PutStr (h,'Time''s up.',37,13,14);
  25.    read;
  26.  
  27. END.